﻿Imports DAO
Imports DTO
Public Class PhieuNhapBUS
    'thêm
    Public Sub Them(ByVal pnDto As PhieuNhapDTO)
        'Kiem tra business rule neu co
        Dim pnDao As New PhieuNhapDAO()
        pnDao.Them(pnDto)
    End Sub
    Public Function LayBang() As DataTable
        'Kiem tra business rule neu co
        Dim pndao As New PhieuNhapDAO()
        Dim dt As DataTable
        dt = pndao.LayBang()
        Return dt
    End Function

End Class
